home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Stacks / Hyper Business / Time & Date Stuff / Ron's To Do / TO DO Archives / background_2667.txt < prev    next >
Encoding:
Text File  |  1988-02-25  |  2.9 KB  |  144 lines
  1. -- background: 2667 from stack: in
  2. -- bmap block id: 3576
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: Reminder
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 0000
  11. -- rect: left=229 top=21 right=44 bottom=254
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 1013 / 1013
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Next
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   -- confines cycling to this background only
  23.   go to next card
  24. end mouseUp
  25.  
  26.  
  27.  
  28. -- part 2 (button)
  29. -- low flags: 00
  30. -- high flags: 0000
  31. -- rect: left=201 top=21 right=44 bottom=229
  32. -- title width / last selected line: 0
  33. -- icon id / first selected line: 1014 / 1014
  34. -- text alignment: 1
  35. -- font id: 0
  36. -- text size: 12
  37. -- style flags: 0
  38. -- line height: 16
  39. -- part name: Prev
  40. ----- HyperTalk script -----
  41. on mouseUp
  42.   go to prev card
  43. end mouseUp
  44.  
  45.  
  46.  
  47. -- part 3 (button)
  48. -- low flags: 00
  49. -- high flags: 0000
  50. -- rect: left=259 top=19 right=47 bottom=296
  51. -- title width / last selected line: 0
  52. -- icon id / first selected line: 1012 / 1012
  53. -- text alignment: 1
  54. -- font id: 0
  55. -- text size: 12
  56. -- style flags: 0
  57. -- line height: 16
  58. -- part name: To To Do
  59. ----- HyperTalk script -----
  60. on mouseUp
  61.   go stack Ron's TO DO Stack
  62.   go to first card
  63. end mouseUp
  64.  
  65.  
  66.  
  67. -- part 4 (button)
  68. -- low flags: 00
  69. -- high flags: 0000
  70. -- rect: left=471 top=17 right=50 bottom=512
  71. -- title width / last selected line: 0
  72. -- icon id / first selected line: 30696 / 30696
  73. -- text alignment: 1
  74. -- font id: 0
  75. -- text size: 12
  76. -- style flags: 0
  77. -- line height: 16
  78. -- part name: Dial
  79. ----- HyperTalk script -----
  80. on mouseUp
  81.   get the selection
  82.   if it is empty then ask "Dial what number?"
  83.   if it is not empty then
  84.     push this card
  85.     visual effect zoom open
  86.     go to stack "Phone"
  87.     dial it
  88.     pop card
  89.   end if
  90. end mouseUp
  91.  
  92.  
  93.  
  94. -- part 5 (button)
  95. -- low flags: 00
  96. -- high flags: 0000
  97. -- rect: left=421 top=16 right=51 bottom=460
  98. -- title width / last selected line: 0
  99. -- icon id / first selected line: 17481 / 17481
  100. -- text alignment: 1
  101. -- font id: 0
  102. -- text size: 12
  103. -- style flags: 0
  104. -- line height: 16
  105. -- part name: To Address
  106. ----- HyperTalk script -----
  107. on mouseUp
  108.   get the selection
  109.   push card
  110.   visual effect zoom open
  111.   go to stack "Address"
  112.   if it is not empty then find it
  113. end mouseUp
  114.  
  115.  
  116.  
  117. -- part 14 (button)
  118. -- low flags: 00
  119. -- high flags: 0000
  120. -- rect: left=455 top=312 right=342 bottom=493
  121. -- title width / last selected line: 0
  122. -- icon id / first selected line: 21700 / 21700
  123. -- text alignment: 1
  124. -- font id: 0
  125. -- text size: 12
  126. -- style flags: 0
  127. -- line height: 16
  128. -- part name: Home
  129. ----- HyperTalk script -----
  130. on mouseUp
  131.   play "harpsichord" tempo 200 "g6e e"
  132.   answer "What'll it be?" with "Go Home" or "Quit" or "Cancel"
  133.   if it = "go home" then
  134.     go to card "good bye"
  135.     go home
  136.   end if
  137.   if it = "quit" then
  138.     domenu "quit hypercard"
  139.     go to card "good bye"
  140.   end if
  141. end mouseUp
  142.  
  143.  
  144.